uses crt;
var N, i: integer;
begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan, ',N);
writeln;
for i:=1 to 10 do
begin
GotoXY(5,WhereY);
writeln(N,'x',i:2,'=',N*i:3);
writeln
end;
...
Đọc tiếp
uses crt;
var N, i: integer;
begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan, ',N);
writeln;
for i:=1 to 10 do
begin
GotoXY(5,WhereY);
writeln(N,'x',i:2,'=',N*i:3);
writeln
end;
readln
end.
